home *** CD-ROM | disk | FTP | other *** search
/ CD BIT 75 / CD BIT 75.iso / Software / ooo / f_0020 / sbasic.jar / text / sbasic / common / 03020411.xml < prev    next >
Encoding:
Extensible Markup Language  |  2003-08-01  |  10.5 KB  |  71 lines
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <html><head><title>MkDir Statement [Runtime]</title><meta name="filename" content="text/sbasic/common/03020411"/><help:css-file-link xmlns:help="http://openoffice.org/2000/help"/><!--The CSS style header method for setting styles--><style type="text/css">
  3.  
  4.         p.P1{
  5.                 }
  6.         span.T1{
  7.                 font-weight:bold;}
  8.         </style></head><body>
  9.   
  10.   
  11.   <help:paragraphinfo state="E" xmlns:help="http://openoffice.org/2000/help"/><help:to-be-embedded Eid="mkdir" xmlns:help="http://openoffice.org/2000/help">
  12.   <p class="Head1"><help:paragraphinfo state="U" number="1"/><help:key-word value="MkDir; statement" tag="kw66444_1"/><help:link Id="66444">MkDir Statement [Runtime]</help:link></p>
  13.   <p class="Paragraph"><help:paragraphinfo state="U" number="2"/>Creates a new directory on a data medium.</p>
  14.   <help:paragraphinfo state="E"/></help:to-be-embedded>
  15.   <p class="Head2"><help:paragraphinfo state="U" number="3" xmlns:help="http://openoffice.org/2000/help"/>Syntax:</p>
  16.   <p class="Paragraph"><help:paragraphinfo state="U" number="4" xmlns:help="http://openoffice.org/2000/help"/>MkDir Text As String</p>
  17.   <p class="Head2"><help:paragraphinfo state="U" number="5" xmlns:help="http://openoffice.org/2000/help"/>Parameters:</p>
  18.   <p class="Paragraph"><help:paragraphinfo state="U" number="6" xmlns:help="http://openoffice.org/2000/help"/><span class="T1">Text:</span> Any string expression that specifies the name and path of the directory to be created. You can also use <help:link Id="66636" Eid="urllocal" xmlns:help="http://openoffice.org/2000/help">URL notation</help:link>.</p>
  19.   <p class="Paragraph"><help:paragraphinfo state="U" number="7" xmlns:help="http://openoffice.org/2000/help"/>If the path is not determined, the directory is created in the current directory.</p>
  20.   <p class="Paragraph"><help:paragraphinfo state="S" xmlns:help="http://openoffice.org/2000/help"/><help:embedded Id="66475" Eid="errorcode" xmlns:help="http://openoffice.org/2000/help"/></p>
  21.   <p class="Paragraph"><help:paragraphinfo state="S" xmlns:help="http://openoffice.org/2000/help"/><help:embedded Id="66475" Eid="err5" xmlns:help="http://openoffice.org/2000/help"/></p>
  22.   <p class="Paragraph"><help:paragraphinfo state="S" xmlns:help="http://openoffice.org/2000/help"/><help:embedded Id="66475" Eid="err76" xmlns:help="http://openoffice.org/2000/help"/></p>
  23.   <p class="Head2"><help:paragraphinfo state="U" number="8" xmlns:help="http://openoffice.org/2000/help"/>Example:</p>
  24.   <p class="PropText"><help:paragraphinfo state="U" number="9" xmlns:help="http://openoffice.org/2000/help"/>Sub ExampleFileIO</p>
  25.   <p class="PropText"><help:paragraphinfo state="U" number="10" xmlns:help="http://openoffice.org/2000/help"/>' Example for functions of the file organisation</p>
  26.   <p class="PropText"><help:paragraphinfo state="U" number="11" xmlns:help="http://openoffice.org/2000/help"/>Const sFile1 as String = "file://c|/autoexec.bat"</p>
  27.   <p class="PropText"><help:paragraphinfo state="U" number="12" xmlns:help="http://openoffice.org/2000/help"/>Const sDir1 as String = "file://c|/Temp"</p>
  28.   <p class="PropText"><help:paragraphinfo state="U" number="13" xmlns:help="http://openoffice.org/2000/help"/>Const sSubDir1 as String ="Test"</p>
  29.   <p class="PropText"><help:paragraphinfo state="U" number="14" xmlns:help="http://openoffice.org/2000/help"/>Const sFile2 as String = "Copied.tmp"</p>
  30.   <p class="PropText"><help:paragraphinfo state="U" number="15" xmlns:help="http://openoffice.org/2000/help"/>Const sFile3 as String = "Renamed.tmp"</p>
  31.   <p class="PropText"><help:paragraphinfo state="U" number="16" xmlns:help="http://openoffice.org/2000/help"/>Dim sFile as String</p>
  32.   <p class="PropText"><help:paragraphinfo state="U" number="17" xmlns:help="http://openoffice.org/2000/help"/>sFile = sDir1 + "/" + sSubDir1</p>
  33.   <p class="PropText"><help:paragraphinfo state="U" number="18" xmlns:help="http://openoffice.org/2000/help"/>ChDir( sDir1 )</p>
  34.   <p class="PropText"><help:paragraphinfo state="U" number="19" xmlns:help="http://openoffice.org/2000/help"/>If Dir(sSubDir1,16)="" then ' Does the directory exist ?</p>
  35.   <p class="PropText"><help:paragraphinfo state="U" number="20" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>MkDir sSubDir1</p>
  36.   <p class="PropText"><help:paragraphinfo state="U" number="21" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>MsgBox sFile,0,"Create directory"</p>
  37.   <p class="PropText"><help:paragraphinfo state="U" number="22" xmlns:help="http://openoffice.org/2000/help"/>End If</p>
  38.   <p class="PropText"><help:paragraphinfo state="U" number="23" xmlns:help="http://openoffice.org/2000/help"/></p>
  39.   <p class="PropText"><help:paragraphinfo state="U" number="24" xmlns:help="http://openoffice.org/2000/help"/>sFile = sFile + "/" + sFile2</p>
  40.   <p class="PropText"><help:paragraphinfo state="U" number="25" xmlns:help="http://openoffice.org/2000/help"/>FileCopy sFile1 , sFile</p>
  41.   <p class="PropText"><help:paragraphinfo state="U" number="26" xmlns:help="http://openoffice.org/2000/help"/>MsgBox fSysURL(CurDir()),0,"Current directory"</p>
  42.   <p class="PropText"><help:paragraphinfo state="U" number="27" xmlns:help="http://openoffice.org/2000/help"/>MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Creation time"</p>
  43.   <p class="PropText"><help:paragraphinfo state="U" number="28" xmlns:help="http://openoffice.org/2000/help"/>MsgBox <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>sFile & Chr(13)& FileLen( sFile ),0,"File length"</p>
  44.   <p class="PropText"><help:paragraphinfo state="U" number="29" xmlns:help="http://openoffice.org/2000/help"/>MsgBox <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>sFile & Chr(13)& GetAttr( sFile ),0,"File attributes"</p>
  45.   <p class="PropText"><help:paragraphinfo state="U" number="30" xmlns:help="http://openoffice.org/2000/help"/>Name sFile as sDir1 + "/" + sSubDir1 + "/" + sFile3</p>
  46.   <p class="PropText"><help:paragraphinfo state="U" number="31" xmlns:help="http://openoffice.org/2000/help"/>' Rename in the same directory</p>
  47.   <p class="PropText"><help:paragraphinfo state="U" number="32" xmlns:help="http://openoffice.org/2000/help"/></p>
  48.   <p class="PropText"><help:paragraphinfo state="U" number="33" xmlns:help="http://openoffice.org/2000/help"/>sFile = <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>sDir1 + "/" + sSubDir1 + "/" + sFile3</p>
  49.   <p class="PropText"><help:paragraphinfo state="U" number="34" xmlns:help="http://openoffice.org/2000/help"/>SetAttr( sFile, 0 ) 'Delete all attributes</p>
  50.   <p class="PropText"><help:paragraphinfo state="U" number="35" xmlns:help="http://openoffice.org/2000/help"/>MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"New file attributes"</p>
  51.   <p class="PropText"><help:paragraphinfo state="U" number="36" xmlns:help="http://openoffice.org/2000/help"/>Kill sFile</p>
  52.   <p class="PropText"><help:paragraphinfo state="U" number="37" xmlns:help="http://openoffice.org/2000/help"/>RmDir sDir1 + "/" + <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>sSubDir1</p>
  53.   <p class="PropText"><help:paragraphinfo state="U" number="38" xmlns:help="http://openoffice.org/2000/help"/>end sub</p>
  54.   <p class="PropText"><help:paragraphinfo state="U" number="39" xmlns:help="http://openoffice.org/2000/help"/></p>
  55.   <p class="PropText"><help:paragraphinfo state="U" number="40" xmlns:help="http://openoffice.org/2000/help"/>' Converts a system path in URL</p>
  56.   <p class="PropText"><help:paragraphinfo state="U" number="41" xmlns:help="http://openoffice.org/2000/help"/>Function fSysURL( fSysFp as String ) as String</p>
  57.   <p class="PropText"><help:paragraphinfo state="U" number="42" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>Dim iPos <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>As String</p>
  58.   <p class="PropText"><help:paragraphinfo state="U" number="43" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>iPos = 1</p>
  59.   <p class="PropText"><help:paragraphinfo state="U" number="44" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>iPos = Instr(iPos,fSysFp, getPathSeparator())</p>
  60.   <p class="PropText"><help:paragraphinfo state="U" number="45" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>do while iPos > 0</p>
  61.   <p class="PropText"><help:paragraphinfo state="U" number="46" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>mid( fSysFp, iPos , 1,"/")</p>
  62.   <p class="PropText"><help:paragraphinfo state="U" number="47" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>iPos = Instr(iPos+1,fSysFp, getPathSeparator())<text:tab-stop xmlns:text="http://openoffice.org/2000/text"/></p>
  63.   <p class="PropText"><help:paragraphinfo state="U" number="48" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>loop</p>
  64.   <p class="PropText"><help:paragraphinfo state="U" number="49" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>' the colon with DOS</p>
  65.   <p class="PropText"><help:paragraphinfo state="U" number="50" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>iPos = Instr(1,fSysFp,":")<text:tab-stop xmlns:text="http://openoffice.org/2000/text"/></p>
  66.   <p class="PropText"><help:paragraphinfo state="U" number="51" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>if iPos > 0 then mid( fSysFp, iPos , 1,"|")</p>
  67.   <p class="PropText"><help:paragraphinfo state="U" number="52" xmlns:help="http://openoffice.org/2000/help"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>fSysURL = "file://" & fSysFp</p>
  68.   <p class="PropText"><help:paragraphinfo state="U" number="53" xmlns:help="http://openoffice.org/2000/help"/>End Function</p>
  69.   <p class="PropText"><help:paragraphinfo state="U" number="54" xmlns:help="http://openoffice.org/2000/help"/></p>
  70.   <p class="PropText"><help:paragraphinfo state="U" number="55" xmlns:help="http://openoffice.org/2000/help"/></p>
  71.  </body></html>